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ABSTRACT 

The DECTAPE FORMAT GENERATOR FOR PDP-9/15 is a program to allow 
the creation of mark and timing tracks, block numbers, and an 
initial data pattern on a reel of virgin DECtape. Any block 
size greater than 4 and divisible by 2 (up to 6866) may be 
specified. Any number of blocks greater than 1 may be specified 
as long as there is sufficient room on tape. Normally, standard 
format is written on tape (256 words per block, 578 blocks, 
numbered 000000 to 001101 (octal) . All communication between 
the operator and the computer is done via the Teletype. 

2. PRELIMINARY REQUIREMENTS 

2. 1 Storage 

This program uses all of 8K memory for program or as a buffer 
area to contain information written on a read from DECtape, 
if non-standard format is specified. Otherwise, only 4K of 
memory is used to store arid run the program. 

2.2 Equipment 

Requires standard PDP-9 or 15 po^>uter with TC02-TC15 EfflCt^je 
Control Unit and at least one igOSS/l!^ DECtape Transport. 

J. LOADING PROCEDURE 

The program is loaded from paper tape using the Macro-D" 
tape loading procedure. 

1. Place tape in reader with blank tape over the read diodes. 

2. Set the ADDRESS Switches to .177)?^?. C*H'2.4) 

3. Depress I/O RESET; set BANK MODE to a 1 (PDP-15) 

4. Depress READ IN key. 

5. Program will load and start itself. 

4. STARTING PROCEDURE 

The program, when loaded as discussed in section 3 is self -starting. 
However, if it is desired to restart the program, set 00100 in 
the ADDRESS switches, depress STOP, I/O RESET, then START. 

5. OPERATING PROCEDURE 

Upon starting, the program will type out its name: 

DECTAPE FORMAT GENERATOR - PDP-9, TC02, TU55 

Then it will start to interrogate the operator to ascertain his 
desires. 



a. The first question asked the operator is to allow him 
to indicate on which transport he desires to mark tapes: 

MARK TAPE ON UNIT 

He responds by typing the decimal number (digit) of the 
proper transport and then any non-numerical character. 

b. The second question determines whether standard or 
non-standard format is to be written: 

DO YOU DESIRE STANDARD FORMAT (256 WORDS, 578 BLOCKS)? 

(TYPE Y-YES, N-NO) 

If standard format is to be written, the operator types Y; 
if non-standard format, he types N. 

c. Typing N in step b or f causes ,a series of questions 
to be asked to determine proper block size quantity: 

HOW MANY BLOCKS? 
HOW MANY DATA WORDS? 

Checks are made to assure that the answers provided are 
legitimate: 

NUMBER OF BLOCKS MUST BE 2 OR MORE. 

BLOCK FORMAT REQUIRES 4 OR MORE DATA WORDS. 

NUMBER OF DATA WORDS MUST BE EVEN. 

TAPE IS NOT LONG ENOUGH. 

8K OF MEMORY CAN'T CONTAIN THIS SIZE BLOCK. 

d. The program will then type out operating instructions to 
allow the operator to ready the unit to mark tape:* 

SET SWITCH LABLED WRTM-NORMAL-RDMK TO WRTM AND ENABLE. 
WRITE ON SPECIFIED UNIT THEN STRIKE A KEY ON THE 
KEYBOARD . 

AFTER MOUNTING A VIRGIN TAPE AND TAKING 2 WRAPS ON 
TAKEUP REEL. 

A check is made to assure that the directions have been 
properly followed and, if not, an error nessage is typed out: 

SELECT ERROR, CHECK FOR THESE CONDITIONS: 

WRITE NOT ENABLED 
NON EXISTENT UNIT 
MULTIPLY EXISTENT UNIT 
SWITCH NOT IN WRTM POSITION 



* This printout may be suppressed by setting AC switch to 1 (up) 



e. After maicing one pass down the tape to write the mark track, 
further ;.nstructions are typed to the operator:* 

SET SWITCH LABLED WRTM-NORMAL-RDMK TO NORMAL, THEN 
STRIFE A KEY ON THE KEYBOARD. 

If the tape has riin off the reel, it should be remounted 
before the key is struck. 

f . Three more passes will be made on the tape to complete the 
marking and vigin pattern procedure, after which time the 
end of the tape will be allowed to run off the takeup reel 
and the format of the tape will be typed out: 

DONEl TAPE HAS MMMMMM BLOCKS (OCT) EACH NNNNNN WORDS 
(OCT) LONG 

The operator will then be asked if he wishes to mark another 
tape to this format: 

DO YOU DESIRE TO MARK ANOTHER TAPE TO THIS FORMAT 
(TYPE Y-YES N-NO)? 

If the operator types Y the program returns to step d, 
if he types N the prograip returns to step c. 

5.1 Details of Operation 

a. First the name of the program is printed on the teleprinter. 

b. The operator is asked to indicate the number of the transport 
to be used to mark tape. This number is checked to make sure 
that it is between 1 and 8. It is then moved into the 
proper bit position for combination into control words for 
the DECtape control. 

c. The operator is asked if standard format is desired. If it is, 
the program proceeds to step f . If standard format is not 
desired, the program proceeds to step d. 

d. The operator is asked to type in the number of blocks to be 
written on tape. A check is made that at least 2 were 
specified. 

e. The operator is asked to type in the number of data words 
per block. The number is checked to make sure it is at 
least 4. It is then checked to make sure it is even, then 
that it is not too large (attempt to overflow 8K of memory) . 
Then check is performed to make sure that the number of marks 
required to be written on tape (number of blocks times niomber 
of data words+10, plus expand codes, plus end zones) is not 
too large. The program then goes to step g. 

f. Constants are then set up for the number of blocks and 
data words (standard format) . 

g. Unless suppressed by ACS 0=1, operating instructions are 
printed on the teleprinter to instruct him as to what he 
should do after which time checks are made to assure that 
he has done as instructed. 



* This printout may be suppressed by setting AC switch to 1 (up) 



h. The DECtape control is then instructed to Write Timing and Mark 
Track and word count and current address are initialized so 
that 8192 reverse end zones are written on tape. Word count 
and current address are again initialized, this time for 199 
expand codes. 

i. Word co\int and current address are again initialized after 
which time the buffer area of memory is filled with the mark 
track pattern for one block of tape. This pattern consists 

of i expand code, 1 forward block mark, 1 reverse guard, 

4 lock, (N-4) data marks, 4 prefinal, 1 guard, 1 reverse, block 
nark, and 1 expand code. This pattern is written on tape 
for as many times as the number of blocks specified. 

j. After initiairzing Word~ count and current address 7 199 expand 
codes, then 8192 forward end zones are written on tape. After 
this is completed the transport is stopped. 

k. Unless suppressed by ACS 0=1, the operator is told to set the 
switch on the maintenance control panel back to NORMAL after 
which time a check is made to make sure this is done. 

1. The DECtape control is then put in Search Continuous Reverse 
and is caused to search backwards 2 blocks. It is then put in 
Write All Continuous (forward) and the complement obverse 
of the last block number on tape is written into every mark 
until the tape unit shuts down in end zone. The DECtape 
control is then put in Search Normal Reverse until the first 
reverse block mark is found at which time it is put in 
Write All Continuous (reverse) and all the blocks are 
written to contain their block niombers (both forward and 
reverse) and a properly checks\immed data pattern, all of 
which is generated and stored in memory. This is done 
until the tape unit shuts down in reverse end zone (beginning 
of tape) . 

m. The DECtape control is then put in Search Normal (forward) 
and the block niimbers for all blocks are checked in the 
forward direction. Upon encountering the last block number, 
the control is put in Write All Continuous (foirward) and the 
last block is re-patterned in the forward direction. The 
program then waits for the tape unit to shut down in end 
zpne . 

n. The reverse block numbers and data pattern are then checked 
in the reverse direction by alternating the DECtape control 
between Search Normal (reverse) to pick up block numbers, 
and Read Normal (reverse) to read the data pattern. After 
all blocks have been checked, the reel of DECtape is allowed 
to run off its end. 

o. The operator is then infoinned via the teleprinter of the format 
written on tape (number of blocks and data words) after which 
time he is asked if he wishes to mark tape to the same 
foinnat. If he answers "Yes", the program proceeds to step g. 
If he answers "No", the program proceeds to step c. 



6. ERRORS 

6.1 Error Messages 

Most error message prints are due to operator error, either in 
typing in information or status conditions of the DECtape 
control or tape drive. These are discussed in the appropriate 
paragraph in section 4. The errors discussed in this section 
pertain to program, or hardware problems. 

6.2 Unexpected Error Flag 

If an unexpected error flag (hardware error) occurs , some of 
the following typeouts will occur (the header will always be 
present) : 

THE FOLLOWING UNEXPECTED ERRORS WERE ENCOUNTERED: 

I4ARK TRACK ERROR 
END ZONE ERROR 
SELECT ERROR 
PARITY ERROR 
TIMING ERROR 

These errors are non-recoversJale. The program must be restarted 
at 00100 to resume marking tapes. 

6.3 Too Many Blocks Written 

If for some unknown reason the number of blocks specified to be 
written on tape does not agree with the number of blocks actually 
written on tape (and is less) the following error typeout will 
occur: 

TO MANY BLOCKS WRITTEN, PROGRAM ERROR - RELOAD 

This error is non-recoverable. To resume marking tapes, load 
program into computer as in section 3. 

6.4 Wrong Block Number 

If during the check of block numbers, the sequence of numbers is 
unexpectedly broken, the following error typeout will occur: 

BLOCK NUMBER SEQUENCE BROKEN 

The program will attempt to recover from this error by retjriting 
the block numbers and virgin data pattern. If this error occurs 
again, the program should be reloaded into memory as in section 3, 
or a DECtape maintenance diagnostic should be run on the DECtape 
transport and control. 
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FPW^lAT 



fORMAT 



20101 
00102 
00103 
00104 

150109 

0(n06 

00107 
00110 

00111 

00112 
00113 
00114 
00119 
00116 
00117 
?012? 
00121 
00122 
00123 
00124 
00129 
00126 
00127 
00130 
00131 
00132 
30133 
00134 
00135 
00136 
00137 
00140 
00141 
?!0142 

?ei43 

00144 
00145 
00146 
00147 
00150 
00151 
00152 
00153 
00154 
00155 
00156 
00157 
00160 
00161 



707704 

101174 

761276 

101144 

761326 

101144 

700312 

101227 

rM246l 

342423 

74!?l0t^- 

601272 

20Z461 

745200 

601272 

742020 

742020 

042461 

101174 

761340 

101144 

101202 

542462 

600223 

548431 

600135 

76P277 

101166 

600122 

101174 

761407 

101144 

101227 

?42437 

3415457 

7401^1? 

60015!? 

762306 

101144 

60(^136 

ieii74 

761420 

101144 
101227 
'/424J6 
34243' 
740103 
603163 
761433 
101144 



BEGIN 



TMESS3 



.TIT 
,ABS 

/OECtAPE fOR 

/TAPE 1 

• LOC 

LE« 

JMS 

UAW 

JMS 

LAW 

JHS 

kRB 

JMS 

DAC 

TAD 

SM* 

LAC 

SNAI 

JMP 

RTR 

RTR 

OAC 

jMS 

LAW 

JMS 

JMS 

SAD 

JMP 

SAD 

JMP 

LAW 

JMS 
JMP 

JMS 
LAW 
JMS 
JMS 
OAC 
TAO 
SMA 
JMP 
LAW 
JMS 
JMP 
JMS 
LAW 
J»^S 
JMS 
OAC 
TAO 
SMA 
JMP 
LAW 
JMS 



LE FORMAT 

KAT r.EMtRATOP n PDP«-9 TC02 TU55 



TMESS* 



TMESS5 



T^-ESSe 



100 

CRIF 

MESSl 

MESAGE 

ME$S2 

MESAGE 

/CLEA 
08CV 
UNIT 
M9 

/IS I 
OVER 
UNIT 

Clt /IS I 
OVER 

/YES, 

/4 RI 

m\y 

CRLF 
MESS3 

MESAGE 
GET /GET 
VYV /WAS 
STAND 
NNN /WAS 
TMESS4«i 
277 /IT W 
TYPE 
TMESS3 
CRLP 
MESS4 
MESAGE 
OBCv 
BLOCKS 
FOURTH** 
/MAKE 

MESS24 
MESAGE 

TMESS4 

CRLF 

MESS5 

MESAGE 

OBCV 

DATAS 

M1NJJS4 

/IS I 
,♦4 /YES 
MESS6 

MESAGE 



/TYPE CR, Lf 

/TYPEOUT FIRST MESSAGE 

/TYPE OUT SECOND MESSAGE 
R KEYBOARD TlAG 

/GO TO DEC TO Bin ROUTIME 
/RETURN WITH U^IT NUMBER 

T LESS THAN 9» 

/NO 

T NOT 0? 

/NO 
MOVE IT 
6HT 

/AND STORE AWAY 

/cw. ur 

/TYPE 3RD MESSAGE 
CHARACTER KEYED 
IT Y» 

/YES 
IT Nf 

/YES 
AS NEITHER 

/TYPE "»" 

/AND ASK AGAIN 

/CR-tr 

/TYPE OUT NEXT MESSAGE 
/CALt DEC TO BIN 
/STORE NUMBER OF BLOCKS 

SURE AT LEAST 2 BloCkS 

/NOT 2 OR MORE 

/CR.LE 

/TYPE OUT NEXT mF.SSAGE 
/CALL DEC TO BlM AGAIN 
/STORE NUMBER OF DATA WQROS 

T AT LEAST 4 

/NO TYPE OUT ERROR 
/MESSAGE 



PAT-C 



?ei62 

fZ163 

?55164 

7!0165 

i?ei56 

(50167 

?0175I 

00171 

00172 

00173 

00174 

00175 

00176 

00177 

00200 

00201 

00202 

00203 

00204 

00209 

00206 

00207 

00210 

00211 

00212 

00213 

00214 

00215 

00216 

00217 

0022? 

00221 

00222 

00223 

00224 

00229 

Z0226 

«"0227 

00230 

?0231 

00232 

?0233 

!?e234 

P0235 

00236 

f0237 

7024" 

i' 02.41 

?0242 

^•0243 

00244 

?0245 

?0246 

?0247 

S102555 



FOR -AT 

7 4 7 4 . ■ ? 

6S?il72 

761462 

1?1144 

600151 

?Z24?4 

744Sl?0 

342416 

740400 

600232 

762332 

101144 

600151 

202416 

342496 

740031 

342434 

042414 

754C!00 

342407 

442414 

600210 

7414810 

600220 

342463 

740400 

600230 

7615?4 

101144 

600136 

101174 

202411 

Ji424ij7 

202412 

?424i6 

101174 

7500^4 

741102 

600236 

761521 

101144 

70«^3l2 

1012^-2 

?02461 

242377 

?424l^C' 

707545 

74 000^ 
740032 
740 0a? 



FCR"AT 



tme:ss7 



TKESS8 



STAND 



NEXT 



PAR 

JMP 

LAW 



TMESS5 

TATaS 



/ASK QUESTION AG* In. 
UKBER DIVISIBLE BV ?? 



/NO, TYPE OUT 
/ERROR MESSAGE 
/ASK AGAIN 



/IS 
,♦4 /YES 
MESS7 

jmS mesage 
jmp tmess5 

LAC AA 

CLI, 

TAD OATAS 

SNU /IS NUMBER OF DATAWORO TOO LARCE? 

JMP ,*4 /NO 

/YES. TYPE OUT 

/ERROR MESSAGE 

/TRY AGAIN 

/THIS 



LAW MESS25 

JMS MESAGE 

JMP TMESS5 

LAC OATAS 

TAO TEN /UlTTtE 

CMA /BIT 

TAO ONE 
OAC CNTRl 
Ct.AJCLL /CODING 
TAD BLOCKS 

ISZ CNTRl , ... - 

JMP ,-2 /TIMES DATA WORD*10 

SH 

JHP t** 

TAO MAGCON /ADO THIS TQ (•) MAX NUMBER Or MARKS 

SNL /TOO many! 



/or 

/MULTIPLIES 

/BLOCK NUMBER 



/NO 

/YES, TYPE OUT 
/ERROR MESSAGE 
/GO 'WAY BACK 



JMP NEXT 
LAW MESSB 
JMS MESACE 
JMP TMES$4 
JMS CRLF 
LAC CONSTl 
DAC BLOCKS 
LAC C0NST2 
DAC OATAS 

JMS cRtr 

LAS 
SPA 

JMP ,*Z 
LAW MESS9 

jms mesage ,,,,--- _ 
krb /clEar keyboard flag 
jms get /wait for key strike 

LAC UNIT 

XOR WTMT 

XOR STOPGO /FORM UNlTi 

707545 /CLtAR AmD LOAD "A 

NOP /WAIT FOR XSA DELAY 

NOP 

NOP 
NOP 
NOP 



/SET UP Blocks 

/AMD OATAS 



/TYPE OUT NEXT MfSSAGE 



WTMT, STOP 



"AGE 



FOR-UT 



FORMAT 



P0251 


7«('ei?'? 


f" 13252 


727561 


?.^251> 


6??2*3 


?0254 


7S7572 


30255 


502424 


012256 


7412Z? 


20257 


631044 


0026?! 


761654 


00261 


101144 


C;0262 


60!?23? 


00263 


202377 


00264 


242461 


00263 


707545 


00266 


763000 


00267 


I?4f5030 


00270 


202362 


00271 


342466 


00272 


202466 


00273 


040031 


00274 


200030 


00275 


740200 


00276 


600272 


00277 


707544 


?|0300 


777471 


00301 


340030 


00302 


202363 


00303 


042466 


00304 


202465 


00305 


340031 


00306 


20J!030 


30307 


740223 


00310 


6003(?4 


00311 


707544 


00312 


202407 


1^0313 


740031 


00314 


342434 


?0315 


34245? 


e0316 


-^42413 


?10317 


202465 


K032? 


'^4?(f3l 


80321 


'•4^310 


K0322 


?2'2416 


20323 


342455 


?0324 


74il0?l 


?0325 


342434 


00326 


'•42447 


^0327 


.'4??5£ 


?033?' 


?22363 


?0331 


'6?2i; 


00332 


Pe2364 


?e333 


r63BlE 


U0334 


??2365 


20335 


•^6i^ei? 


00336 


202366 



707561 /ERNOR Cr^DITIOM? <E.F> 

JMP FIRST /^-O, PROCEEO TO mAIM PROGRAM 

707572 /YES, REaD STATUS B 

AND MASK2 

SNA 



/^■0 
/YES 

/TYPE OUT ERROR MESSAGE 



/UOAO AC WITW WTmT FWO 00 CO^'T 
/COMBINE UNIT NUMBER 



/SELFCT FRROR 
jviP ERRQRl 
LAW MESS10 
JMS MESAGE 
JMP NEXT 
/ROUTINE TO WRITE MARK TRACK 
riKST LAC WTMT 
XOR UNIT 
707545 
I.AW 

DAC WC /SET MC TO 
LAC REVENO 
DAC BUFTER 
LAC BUFFERbI 
DAC CA /SET CA TO "BgFFER"!" 

/CCt HC 

/IS IT 0T 

/NOi RESET CA 

/YC5, CLEAR OTF (DONE REViIND) 



/CLIaR and load "A" 

6192 (DEC) 
/SET BUFFER TO "55" 



/SET BUFFER TO "25« 



SECOND 



LAC UC 
SZA 

JMP ,»4 
707544 

LAW »307 

DAC WC /SET WC TO -1»9 (OlC) 

LAC EXPAND 

DAC BUFFER 

LAC BUFFER"! 

DAC CA /SET CA TO BUFFER*! 

LAC WC /GEt WC 

SZA /IS IT 0t 

JMP ,"4 /N0» RESET CA 

707544 /YES, CLEAR DTF (DONE ExpANO) 

LAC BLOCKS /GET NUMBE" OF BLOCKS 

CMA 

TAD ONE /TAKE 2'S COMPLEMENT 



/SAVE 

/AND STORE IN COUNTER 



OAC SAVEl 

DAC CNTR 

LAC BUFFER"! 

DAC CA /SET CA TO BUFFER-l 

OAC 10 /ALSO 10 

LAC OATAS /GET NUMBER OF DATA WORDS 

TAO TEM /ADO 10 

CMA 

TAO ONE /2'S COMPLEMENT 

DAC SAVE /SAVE 

OAC WC /ANU STORE IN WC 

LAC EXPAND 

DAC« 10 /STORE EXPAN'O CODE I^ BUFFER 

LAC »«AR« 

OAC« 10 /STORE MARK 

LAC REVORO 

DAC« 10 /STORE REVERSE GUARD 

LAC LOCK 



PAGE 



4 


rOR'iAT 


FOR^tAT 


?e337 


:6??U" 




/!aj4,' 


,'6?^J- 




/!0341 


-e'^'^i.: 




72342 


'62Zli 




Z0343 


202416 




00344 


34243^' 




00345 


74l2i?? 




f'0346 


60!?356 




00347 


7400P1 




00350 


342434 




00351 


?43414 




00352 


202367 




00353 


r 6 00 10 




00354 


442414 




00359 


600353 




00356 


202370 




00357 


5'60010 




?0363 


"160012 




00361 


?600l? 




00362 


?600ie 




00363 


202371 




00364 


e60Bl0 




00369 


202372 




00366 


060010 




00367 


202369 




00370 


06^01^ 




00371 


2013030 




00372 


740200 




00373 


600371 




00374 


707544 




00379 


202465 




00376 


?40031 




00377 


202447 




00400 


?4003f 




?10401 


442413 




00402 


600371 




00403 


777471 


THIRI 


^0404 


?'4003e 




00405 


202363 




00406 


742466 




K0407 


202465 




00413 


'4(^031 




00411 


?0f*03? 




JI0412 


74?!2?S 




5'0413 


60P4«"7 




ei0414 


707544 




PI0415 


76?'i'i'7 




E»e416 


'''4Z033 




00417 


?02373 




C-Z42? 


■42466 




?0421 


202465 




?0422 


;;40a3i 




00423 


?0003n 




PI0424 


740223 




00425 


601?421 





/SET UP COUNTE" FOR N«4 DATA WORDS 



')AC« 10 /STORE LnCK» 

DAC» 1? /REVERSE CHECK, 

OAC* IZ /REVfRSE FiNALi 

DAC» 10 /AMU REVERSE PRETlNAU 

l,AC OATaS 

TAD MIMUS4 

SNA 

JMP ,♦10 

CMA 

TAD ONE 

DAC CNTRl 

LAC OATAH 

OAC« le /STORE n;4 DATA MA^KS 

ISZ CNTRl 

JMP ,«2 

LAC PREFIN 

OAC* 10 /STORE PREFINALi 

DAC* 10 /riNALi 

OAC« 10 /CHEcKi 

0A0« le /ANO REVERSE LOCK 

LAC GUARD 

DAC» 10 /STORE GUARD 

LAC REVMRK 

OAC« 10 /STORE REVERSE HARK 

LAC EXPAND 

DAC« 10 /STORE EXPAND 

LAC WC 

S2A /HAS WHOLE BLOCK BEEN TRANSFERRED! 

JMP ,«Z /NO 

CLEAR OTF (DONE WITH THIS BLOCK) 
/AND SET UP FOR BtOCK AGAIN 



707544 /lis, 

LAC BUFFER"! 
DAC CA 
LAC SAVE 
OAC WC 
ISZ CNTR 
JMP ,»11 
LAW ^.307 
DAC WC 
LAC EXPAND 
DAC BUFFER 
LAC BUFFER-1 
OAC CA /SET 
LAC wC 
S2A 

JMP ,-4 

707544 

LAW 

OAC WC 

LAC END 

DAC BUFFER 

LAC BUFFER"! 

DAC CA /SET 

LAC WC /GET 



/WRITTEN ALU BLOCKS? 

/NO 

/YESi SET UP FOR 199 EXPANDS 



/SET BUFFE" TO "25'» 

CA 
/GET WC 
/IS IT 0? 

/N0» RESET CA 

/YES, CLEAR DTF (DONE EypANO) 

/SET WC TO ''ei92(0EC) 

/SET BUFFeP to "22" 



CA 
WC 



TO BUFFER-1 



S2A 
jMP ,-4 



/IS IT 0? 

/NO 



paC-E 



FORMAT 



r!5<2A, 


?C'2377 


','1^27 


7'Z7544 


■'04 3" 


70K312 


70431 


75PtU'« 


i?0432 


7411.'.:. 


ZB433 


620436 


2)0434 


7617S7 


2 0435 


101144 


??436 


li^l2l?2 


(50437 


202461 


?0442! 


707545 


00441 


74000? 


00442 


740000 


00443 


740000 


00444 


740000 


00445 


74000SI 


00446 


74000? 


00447 


707561 


00450 


741000 


00451 


600430 


00492 


202376 


00493 


242461 


00494 


707545 


00459 


202464 


00456 


040031 


00457 


777776 


00460 


?40030 


00461 


200033 


00462 


741200 


00463 


600467 


00464 


707561 


00465 


600461 


00466 


600452 


00467 


202375 


00473 


242461 


00471 


707545 


?0472 


14003? 


00473 


75i?'i()5'l 


p.0474 


342407 


2)0475 


C-42452 


00476 


101115 


Z0477 


042451 


00500 


P42466 


70501 


?02465 


C0602 


?4i?l^31 


?0503 


727561 


70504 


6005C1 


?i0505 


707572 


?05lH6 


502423 


C0507 


74123? 


i»05li? 


601244 


?05ll 


202376 


20512 


242402 



FORf^AT 



TMESll 



LAC «TMT /YESi TMEM 

7^7544 /STOP TAPE 

KBB /CUtiR KFvyoARD ^V EXT«A'EruS CHARACTERS 

u*s 

SPA 

JMP .♦S 

tAU MESSll 

JMS MESAGE /TYPE OUT NEXT MESSAGE 

JMS GET /WAIT FOR A KEY TO BE STRUCK 

LAC UNIT 

707545 /CUtAR AMD LOAD "A" WITh MOVE 

NOP /WAIT FOR XSA DELAY 

NOP 

NOP 

NOP 

MOP 

NOP 

707961 /CRNOR FlACT 

SKP /NO _ , 

JMP TMKSll /YES. TYPE MESSagI AGAIN 
/ROUTINE TO WRITE L*ST BLOCK NUMBER IN REVERSE MARK 
/THEN ALL BtOCK MARKS AND A VIRGIN PATTERN IN REVERSE DIRECTION 
FOURTH L*C RCSCRC /1.0A0 AC WjTH SeaRCH, CONTINUOUS GO, REVERSE 

XOR UNIT /COMBINE WITH UNIT NUMBER 

707545 /CLEAR AND LOAD "A" 

LAC BUFFCR-t 

OAC CA /set CA to BUFFER 



LAW «2 

DAC WC 
LAC WC 
SNA 
JHP ,♦4 



/SET WC to -2 
/WAIT FOR WC » 



707561 /ERHOR FlaC? 

JMP ,•4 /NO 

JMP FOURTH /YESi START AGAIN 

LAC FWOWAC /LOAD AC WITH WRITE AlLi FWO, GO, CONT, 

XOR UNIT /COMBINE WITH UNIT NUHBCR 

707549 /CLKaR and LOAD "A" 

DHM WC /ZERO WC 

CLA'.CMA 

/COMPUTE L*ST BLOCK NUMBER 



/FIND COMPLEMENT OVBERSE 
/STORE IN BUFFER 



TAD BLOCKS 

OAC SAVE3 

JMS CALQL8 

OAC SAVE2 

OAC BUFFER 

LAC BUFFER"! 

OAC CA /SET CA TO BUFFER-1 

71^7561 /^AiT FOR ERROR FL*G 

JMP ,-3 

707572 /READ STATUS "B" 

AND M4SK1 

SNA /END 20NE7 

JMP ERRORl /NO 

LAC RESEflC /YES, LOAD SEARCH REV GO CONTINUOUS 

XOR NQRCON /MAKE NORMAL 



PAGE 



FOMnAT 



FCRfiAT 



E'0&i3 


242461 


?0514 


7075'!5 


?0515 


202464 


C0516 


•Maasi 


20517 


7076'/! 


00529" 


600517 


B0521 


7^7552 


00522 


5!?2443 


00523 


707544 


?!B524 


202401 


C<0525 


707544 


00526 


202465 


00527 


040810 


1^0530 


342460 


00531 


040031 


00532 


202447 


00533 


342460 


00534 


^40030 


00539 


160010 


00536 


750001 


00537 


342407 


00540 


060010 


00541 


202416 


00542 


342457 


00943 


740001 


00544 


e424l4 


00545 


160010 


00546 


442414 


00547 


600545 


00550 


760001 


00551 


?60010 


00552 


160010 


00553 


i60aii? 


00554 


202451 


20559 


■?600ie; 


00556 


750001 


00557 


,"•60010 


00560 


202452 


00561 


C42413 


30562 


7500?1 


00563 


34301!?' 


00564 


142435 


30665 


20003;" 


00566 


74l20t' 


v"0567 


600573 


f?0570 


707561 


00571 


60?565 


.10572 


601344 


•?0573 


727544 


30574 


???465 


00575 


;'4i'03i 


00576 


202447 


550577 


;;4003i? 


?e600 


752104*1 


00601 


342452 



hEREI 



XOR UMIT /CQ«9I^'E WITH UNJT 

707545 /CUtAH A^iO LOAD "A" 

LAC BUfFf.S"'! 

DAC CA /SET CA TO BUFFER 

707601 

JMP ,-1 /WAIT FOR OTF 

707552 /READ "A" 

AND P0JnT*3 

707544 /CLEAR FUNCTION BITS 

LAC WAC /LOAD AC WITH WRITE ALL CONT 

707544 /TRANSFER INTO "A" 

LAC BUFFER*! 

DAC 10 /SET UP 10 

TAO THREE 

OAC CA /AND CA 

LAC SAVE 

TAO THREE 

OAC WC /SET «C TO 2 LESS THAN USUAL 

02H« 10 /SEt UP CXPANO 

CWAICMA 

TAO BLOCKS 

DAC» 10 /SETUP Block number intq buffer^i 

LAC OATAS 

TAD two 

CMA 

DAC CNTRl /SET UP COUNTER FOR <( OF 0*5 

DZM» 10 /(DATA WCR0S*3> IN MEMORY 

iSi CNTRl /AND THEN STORE IN BUFFER 

JHP ,"2 

CLAtCMA 

DAC» 10 /SET UP REVERSE CHECKSUM 

OZM» 10 /SET UP LOCK 

OZM» 10 /SET UP REVERSE GuARO 

LAC SAVE2 

OAC» 10 /STORE COMP, OBVERSE IN BLOCK HARK 

CLAJCMA 

OAC* 10 /SETUP Expand 

LAC SAVEl 

DAC CNTR /SET UP BLOCKS COUNTER 

CLAJCMA 

TAO 10 

OAC PNTR /SET UP PnTR for BLOCK NUMBER 

LAC WC /WAIT FOB BLOCK TO FINISH 

SNA 

JMP ,*4 

707561 
JMP ,-4 

JMP ERRQRl 

707544 /CLtAR OtF 

LAC PUFFF-R"! 

OAC CA /SETUP C» 

LAC SAVE 

OAC WC /AND WC 

CLAICMA 

TAD SAVE3 /COMPUTE NUMBER oF CURRENT BLOCK 
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FORMAT 



■^Zb<i2 


::A2'^b7. 


:'Z6e3 


'42467 


7Z6f!4 


101115 


?06e5 


-■62435 


Z0606 


442413 


00607 


«?!"565 


?B6ie 


2ZZ4,'2 


5i06ll 


707544 


00612 


707552 


00613 


502443 


00614 


707544 


00615 


202423 


00616 


707544 


00617 


202464 


00620 


7.40031 


00621 


7076Z1 


Z0622 


741000 


00623 


601106 


00624 


707561 


00625 


600621 


?0626 


707572 


00627 


502423 


00630 


741200 


00631 


601044 


00632 


202450 


00633 


042413 


00634 


142417 


00635 


202403 


00636 


242400 


0B637 


242461 


0064? 


707545 


00641 


202464 


00642 


!?40031 


00643 


140030 


00644 


707631 


00645 


600644 


00646 


707554 


i?0647 


202456 


Z065P 


542417 


?0651 


7410^0 


00652 


601112 


00653 


442417 


00654 


442413 


e3655 


605«644 


?e656 


707552 


712657 


502443 


?0660 


707544 


?0661 


??24ei 


Z0662 


707544 


?2663 


2?2465 


?0664 


r'40i3l3 


?0665 


34246? 


^0666 


r'4!'031 



/AND STORE \^ Appropriate place 

/FORM CQi^PUEME^T OBVERSE 
/AND STORE IT 

/HAVE ALL Blocks been patterned? 

/NO 



r R f^ A t 

DAC SAVE3 
DAC BufPER*! 

JMS calolb 
nAC» pntr 

ISZ CNTR 

JMP HEREl 

LAC MORCO'>i 

707544 /CLfcAR CONTIMUOUS 

707552 /READ "A" 

AND P0INT*3 

707544 /CLEAR FUNCTION REGISTER 

LAC SECnOM /LOAD AC WITH SEA«CH NORMAL 

707544 /XOH INTO "A" 

LAC BUrFERft2 

DAC CA /SET UP CA 

707601 /SKIP IF BLOCK MARK FOUND 

SKP /NO DTFi CHECK ERROR FLAG 

JMP ERR0R2 /DTFi ERROR 

707561 /SKIP ON ERROR FLAG 

JMP ,«4 /NO FLAGS* CHECK ALL AGAIN 

787972 /READ STATUS "B" 

AND HASKl 

SNA /IS DECTAPC IN END ZONE? 

JMP ERRORl /NO, ERROR 
/ROUTINE TO CHECK FORWARD BLOCK MARKS And 
/REWRITE LAST BLOCK 



FIFTH 



LAC SAVEl 

DAC CNTR 
OiM EXPECT 
LAC SERNOH 
XOR STOPGO 
XOR UNIT 



HERE2 



/SET COUNTER TO . NUMBER OF BLOCKS 
/iERO EXPECTED BLOCK NUMBER 
/LOAD AC WITH SEARCH NORMAL 
/XOR 60 

/COMBINE WITH Unit 

707545 /CLtAR AND LOAD "A" 

LAC BUFFER-2 

DAC CA /SET UP cA 

D2M WC /ANU WC 

707601 /WAIT FOR OTF 

JMP ,-1 

707554 /CLEAR It 

LAC BUFFER /GET BLOCK NUMBER 

SAD EXPECT /COMPARE AGaInST EXPECTED 

SKP /OK 

JMP ERR0S3 

ISZ EXPECT 

ISE CNTR 

JMP HERE2 

707552 /N0» READ "A" 

AND P0InT*3 

707544 /CLEAR FUNCTION BiTS 

LAC WAC /LOAD AC «-'lTM WRITE ALL COnT 

707544 /THA-.SFER IMTO "A" 

LAC BUfFERtl 

DAC 10 /SET UP 10 

TAO THREE 

OAC CA /ANU CA 



/ERROR 

/SET UP EXPECT FnR \EXT 

/WILL THERE BE A NEXT? 

/YES 



OAGt: 



FOK-'AT 



rOH'^AT 



!?0667 


?22447 


?(?fr7-' 


34246; 


i'067l 


■•<i?Z3<' 


?0672 


l6iZ<5l,' 


00673 


75^021 


00674 


3424:37 


(J0675 


06001? 


?i3676 


202416 


00677 


342457 


00700 


7400P1 


00701 


r!42414 


00702 


750001 


00703 


260010 


00704 


442414 


00705 


600703 


0070S 


160010 


00707 


!?60013 


00710 


060010 


00711 


342407 


00712 


101115 


00713 


?60010 


00714 


160010 


00715 


200030 


00716 


741200 


00717 


600723 


00720 


707561 


00721 


600715 


00722 


601044 


00723 


707552 


00724 


502443 


30725 


707554 


00726 


707561 


00727 


600726 


00730 


707572 


00731 


502423 


00732 


741200 


00733 


601044 


?0734 


750001 


00735 


342427 


5^0736 


^■42417 


l?0737 


202461 


007401 


242400 


00741 


242424 


00742 


707545 


00743 


707552 


20744 


•502443 


30745 


727544 


e0746 


2024?3 


e0747 


727544 


5!075!' 


202464 


!?!075l 


■/Ai'eSi. 


20752 


7276r'l 


00753 


6055752 


00754 


202456 



L*C SAVE 

TAD TMREE 

DAC WC /SET UP WC 

OZM» 10 /SET UP EXPA^'0 (MOT MEEdeO) 

CIpAjCHA 

TAO BLOCKS 

DAC» 10 /SET UP FORWARD BtOCK MabK 

UAC HATAS 

TAD TWO 

CMA 

DAC CNTRl /SET UP COUNTER FOR # OF I'S 

CtAJCMA /<0*TAW0R0S*3) IN MEMORY 

DAC« 10 /AND THEN STORE iN BUFFER 

ISi CNTRl 

JMP ,-»2 

02H« IB /SET UP CHECKSUM 

DAC« 10 /REVERSE LOCK 

DAC» 10 /GUARD 

TAO BLOCKS 

JMS CALQL8 /FORM COMP, OBVERSE 

OAC« 10 /STORE IN REVf MARK 

OZM» i0 /SET UP fXPANO 

I.AC WC /WAIT FOR BLOCK TO BE WRITTEN 

SNA 

JMP ,*4 

707561 

JMP ,-»4 

JMP ERRORl 

707552 /READ "A" 

AND P0!NT*3 

707554 /CLEAR FUNCTION REGISTER 

707561 /WAIT FOR ERROR FLAG 

JMP ,•! 

707572 /READ STATUS "B" 

AND MASKl 

SNA /IS OECTaPE IN END ZONE? 

JMP ERRORl /NOi ERROR 
/ROUTINE TO CHECK REVERSE BLOCK MARK AND READ DATA BACKWARDS 
SIXTH CLAtCMA 

TAD BLOCKS /CREATE HIGHEST BLOCK DUMBER 

DAC EXPECT /AND STORE IN ExpECT 

LAC UNIT /FORM WORD 

XOR STOPGO /TC SELECT UNIT 

XOR MASK2 /AND CO REVERSE 

707545 /CLEAR AMD LOAD "A" 
HEHE3 707552 /READ "A" 

AND P0INT*3 

707544 /CLfcAR Fl'NCTION REGISTER 

LAC SERNOM /LOAD AC wITH SeaRCM NORMAL 

707544 /XOH \hl0 "A" 

LAC BUFFERsii 

DAC CA /SET UP CA 

71>!7601 /WAIT FOR OTF 

J-^P ,-l 

LAC BUFFER /GET BLOCK NUMBER 
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roRi- AT 



70755 


■5 42417 


5'a756 


741*? f:;: 


f<tl^l 


631112 


?076f» 


707^52 


5f0761 


5?2443 


00762 


707544 


00763 


202374 


?0764 


7!;7!J44 


00765 


202463 


(t0766 


«40031 


20767 


i4f'e'3e 


00770 


7076(11 


00771 


600770 


00772 


707561 


00773 


741000 


00774 


601044 


00775 


750001 


00776 


342417 


zini 


042417 


01C00 


740001 


01001 


750200 


01002 


600743 


01003 


202461 


01004 


740001 


01005 


502445 


01006 


707545 


01007 


762210 


01010 


101144 


01011 


202407 


01012 


101207 


01013 


202461 


01014 


242424 


01015 


707545 


?!1016 


76024S 


01017 


101166 


0102?! 


762221 


01021 


101144 


511022 


202416 


fl^ZS 


101207 


?ie24 


76024? 


21025 


101166 


21026 


762232 


2il?27 


1?1144 


^\7>Z^ 


762243 


21031 


101144 


511032 


70i'3l2 


Zl?33 


iei2?2 


71034 


■542462 


!?1?35 


60?23: 


?1036 


542431 


.'1037 


60?122 


9\7»,7- 


76^277 


?1041 


101166 


?ie42 


101174 



roR^AT 

SAO EXPECT /COMPARE aGAINSt EXPECTED 

SKP /Same all Ok 

JMP ERR0f(3 /OIFFERE^JTi ERRnR 

707552 /READ "A" 

AND P0lNT*3 

707544 /CuEaR TuNCTION REGISTER 

UAC REDNOM /UQAP AC WITH ReaD ^ORMAL 

707544 /X0« INTO "A" 
LAC BUPPER"! 

OAC CA /SET UP CA 

DZM WC /ZERO WC 

707601 /DCCTAPE ri.ACT 

JMP ,»1 /NO 

707561 /ERROR FlA57 

SKP /NOi ALL OK 

JMP ERROR! /YESi ERROR 

CLAICMA /OECREMEkT EXPECT 

TAO EXPECT 

OAC EXPECT 

CMA 

S2AICUA /HAS EXPECT GONE TO -0? 

JMP HERE3 ' /NO. REPEAT FOR mEXT BLOCK 

LAC UNIT /YES 

CMA 

AND P01nT*S 

707545 /DESELECT UNIT 
/ROUTINE TO INQUIRE OF OPERATORS INTENTIONS 



LAST LAW MESS20 

JMS MESAGE 

LAC BLOCKS 

JMS TYPOUT 

LAC UNIT 

XOR MASK2 

707545 /STOP DRIVE 

LAW 240 

JMS TYPE 

LAW MESS21 

JMS MESAGE 

LAC DATAS 

JMS TYPOUT 

LAW 240 

JMS TYPE 

LAW MESS22 

JMS MESAGE 
TMES23 LAW MESS23 

JMS MESAGE 

KRB 

JMS GET /GET TYPED CwARACTER 

SAO VYY /WAS IT Y 



/TYPE OUT MESSAGE 

/TYPE OUT NUMBER OF BtOCKS 



/TYPE OUT MESSAGE 

/TYPE OUT NUMBER OF DATA WORDS 

/TYPE OUT MESSAGE 
/TYPE OUT MESSAGE 



JMP NEXT 
SAO NNM /N0» 
JMP TMESS3 
LAW 277 /NO 
JMS TYPE 
JMS CRLF 



/YES 

WAS IT ^ 
/YES 

/TYPE <?» 
/CR-LF 



RAT^E 10 


roS"AT 


''1P43 


fgii'i. 


'lf44 


762^i^ 


f-Xf45 


121144 


211'46 


7S7572 


5;i?47 


74001? 


0ie5? 


74?1?? 


01^51 


601054 


01052 


762i565 


31053 


101144 


01054 


707572 


31055 


74201S 


01056 


7401015 


01057 


601062 


0106? 


762077 


01061 


101144 


01062 


707572 


01063 


502424 


01064 


741800 


01065 


601070 


01066 


762110 


01067 


101144 


01070 


707572 


01071 


502425 


01072 


741200 


01073 


601076 


01074 


762120 


01075 


101144 


01076 


707572 


01077 


502426 


01100 


741200 


01101 


601124 


01102 


762130 


01103 


101144 


01104 


740043 


01105 


601104 


01106 


762140 


01107 


101144 


Pilll'^ 


74?)043 


Pllll 


60111? 


01112 


76217? 


^1113 


101144 


01114 


6e?467 


C1H5 


"<l7.ii^? 


01116 


744i!!01 


01117 


!;4 2432 


2112'' 


1.<24>53 


?1121 


mm 


71122 


■^42453 


!>1123 


?e24i£ 


J'1124 


:'42436 


i?1125 


202432 



jf'P TMES23 /TRY AGAI^ 

/uvExpected erbor fwag type out SQUTInE 

FRfiOHl UAW MESS12 

JMS MESAGE /TYPE OUT "^ESS^GE i^EADER 

707572 /READ "B" 

RAJ, 

SMA /MARK TRACK ERROR? 

JMP ,*3 /NO 

LAW MESS13 /YES 

JMS mesage 

707572 /READ "B" 

RTL 

SHA /ENO 20NC ERROR! 

JMP ,*3 /NO 

LAW MESS14 /YES 

JMS mesage 

707572 /READ "B" 

ANO MASK2 

SNA /SELECT ERRORt 

JMP ,*3 /NO 

LAW HESS15 /YES 

JMS MESAGE 

707972 /RC*0 "B" 

AND MASK3 

SNA /PARITY ERROR? 

JMP ,*3 /NO 

LAW MESSKI /VES 

JMS MESAGE 

707572 /READ "B" 

ANO MASK4 

SNA /TIMING ERROR? 

JMP ,*3 /NO 

LAW MESS17 /YES 

JMS MESAGE 



JMP 



i«l 



/TOO MANY BLOCKS WRITTEN ERROR ROU^I^E 
ERR0R2 LAW MESS18 

JMS MESAGE /TYPE OUT ERROR MESSAGE 

XX /ANO STOP 

JMP ,«-l 
/WRONG BLOCK NUMBER ERROR ROUTINE 
ERR0R3 LAW MESS19 

JHS MESAGE /TYPE OUT ERRO" "ESSAGE 

JMP F0URTH*15 /REPEAT VjRGIS PtTTERN 
/CALCULATE 16 BIT COMPLEMENT OBVERSE 
CALOLB 

Cf^AjCLL 

OAC NUMBER 

D2H OBVEHS 

LAW -6 

dac tally 
lac cpoint 

OAC PNTRl 
LAC NUM3ER 



AGE 11 


rOR"AT 


FOR'^UT 




?1126 


741?::;- 




SKP 


^1127 


7 42;'i " 


LOOP 


RTt 


:'113"! 


742^1 




RTU 


71131 


7 4 2^11' 




RTL 


?1132 


"42432 




OAC wUM9E« 


fil33 


522436 




ANiD» PNTRl 


01134 


242433 




XOR OBVERS 


?1135 


?42433 




OAC OBVERS 


01136 


442436 




ISH PNTRl 


:ill37 


2^2432 




LAC NUMBER 


SI114!? 


442453 




!SZ TALLY 


?1141 


601127 




JMP LOOP 


01142 


202433 




LAC QBVERS 


01143 


621115 




JMP« calqlb 






/MESSAGE PRINT SUSROUTINt 


01144 


?000a0 


mesagc 





01145 


502427 




AND MASKS 


01146 


1^42437 




DAC PNTR2 


01147 


222437 




LAC» PNTR2 


01150 


742020 




RTR 


01151 


742020 




RTR 


01152 


7421321? 




RTR 


01153 


742020 




RTR 


01154 


740020 




RAR 


01155 


101166 




JMS TYPE 


01156 


542446 




SAD RUBOUT 


01157 


621144 




JMP« MESAGE 


01163 


222437 




LAC» PNTR2 


01161 


101166 




JMS TYPE 


01162 


542446 




SAO RUSOUT 


01163 


621144 




JMP» mesace 


01164 


442437 




ISi PNTR2 


01165 


601147 




JMP MESAGE*3 






/TYPE ; 


SUBROUTINE 


01166 


?Z0000 


TYPE 





01167 


502446 




AND RUBOUT 


0117!! 


700406 




TLS 


01171 


7004?1 




Tsr 


71172 


501171 




JMP ,"1 


:^1173 


621166 




JMP» TYPE 






/cRtr 


SUBROUTINE 


?1174 


'2002? 


CRur 





mi75 


7621215 




LAW 215 


"1176 


101166 




JMS TYPE 


«'1177 


760212 




LAW 212 


i^l200 


1Z1166 




JMS TYPE 


^1201 


«21174 




JMP« CRLf 


'>^1202 


?00pp;i 


GET 





31203 


70031 1 




KSF 


•'12Z4 


6012 ■■3 




J^P .-1 


?J205 


700312 




KH8 


?'1206 


f212?2 




JMP* GET 






/OCTAL 


TYPEOUT SUBROUTINE 


?1207 


; 0Z!6igi? 


TYPOUT 


? 


2)121? 


:-4245< 




DAC TEMP 
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FORf'AT 



roRMAT 



71211 
?12l? 
n2i3 

ei?i4 

^1213 
21216 
?1217 
01223 
01221 
01222 
01223 
01224 
ei229 
01226 

e!1227 
01230 
01231 
01232 
01233 
01234 
01235 
01236 
01237 
01240 
01241 
01242 
01243 
01244 
01249 
!?1246 
01247 
01253 
01251 
01252 
01253 
01254 
01255 
5"1256 
?.1257 
21263 
?1261 

?1263 
£■1264 
?1265 
71266 
^1267 
n?77 
t'1271 
£"1272 
01273 
:n274 
?1275 



777772 
:424l5 

?224!54 
74401;.' 
74K0l!i 
74201: 
042454 

^0244;" 

242406 
1011*6 
202454 
442415 
601215 
621207 

000000 

142405 

101202 

042454 

342422 

741100 

601267 

342421 

740100 

601267 

202454 

242406 

342454 

202405 

744010 

741430 

601272 

042455 

74001?' 

741400 

601272 

74001? 

741400 

601272 

342455 

741403 

601272 

342454 

74143IF 

601272 

"424?5 

*0123l 

101174 

?0?4E'5 

'-21227 

76J1277 

101166 

101174 

60123C 



LAW -.6 
OAC CNTR2 
LAC TEMP 
RALtCtU 
RAU 
RTL 

OAC TEMP 
AND POINT 
XOR ASKII 
JMS TYPE 
I.AC TEMP 
ISI CNTR2 

JMP» TYPOUT 
/DECIMAL TO BINARY INPUT ROUTINE 



OBCV 



TEST 



MP10 





DiM ANSmER 
JMS SET /QIT 
OAC TEMP 
TAO M260 



/ZERO ANSWER 
CHARACTER 
/SAVE IT 
/SUBTRACT 260 



SPA /IS CHAR > 260 
JHP DONE /NOi DONE 
TAO M12 /SUBTRACT 12 
/CHAR < 271 



SMA 

JMP DONE 

LAC TEMP 

XOR ASKII 

DAC TEMP 

LAC ANSWER 

RALICLU /MUUTIPLY X 2 

SiU /OVCRriOwf 

JHP OVER /YES 

DAC TCMl /N0# STORE 

RAt n 2 AGAIN 

Sit /OVERFLOW? 



/NOt DONE 
/CET CHARACTER 
/MASK OFr ASCII CODE 
/STORE BACK IN TEMP 
/GET PARTIAL ANSWER 



JMP OVER 

RAL 

SiL 

jMp OVER 

TAO TEMl 



/YES 

/NOi X 2 AGAIN 
/OVERFLOW? 



/YES 

/ADO ANSWER X 2 



SZL 
JMP OVER 
TAD TEMP 
S2L 



OONE 



OVER 



/TAPE 2 



/OVERfLOk? 

/YES 

/NO, 

/OVtRFLOw? 

JMp OVER 

DAC A>^SriER 

JMP TEST-1 

J^S CRLF 

LAC ANSWER 

JMP# OBCV 

LAW 277 

JMS TYPE 

JMS CRLF 

JMP 08CV*1 



ADD NEW NUMBER 



/YES 

/NO 

/CO BACK FOR NExT CHARACTER 

/GET ANSWER 
/EXIT 

/TYPE "?" 

/START AGAIN 
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FOR'UT 



FORMAT 







/OECTAPE fORMAT 


GE^mErATOH 






/MESSAGES 




ri2 76 


3^4335 


"^ESSl 304305 


/0|E 


.'1277 


703324 


303324 


/C,T 


?1323 


30132? 


301320 


/A,P 


?l3ax 


30524? 


305240 


/E.SP 


?1302 


306317 


306317 


/F,0 


ci3e3 


J223a5 


322315 


/R,M 


31304 


301324 


301324 


/«|T 


^1305 


240307 


2403^7 


/SP»C 


?X306 


305316 


309316 


/E|N 


K1307 


305322 


305322 


/E#H 


^ISl? 


301324 


301324 


/AiT 


(91311 


317322 


317322 


/0|R 


01312 


255320 


255320 


/•|P 


ei3i3 


304320 


304320 


/0,f 


01314 


255271 


295271 


/•I* 


01319 


254240 


294240 


/.iSP 


01316 


324303 


324303 


/T|C 


ei3jT 


260262 


260262 


/0|2 


01320 


254240 


254240 


/»iSP 


01321 


324325 


324329 


/T.y 


01322 


265269 


269269 


/5,> 


01323 


215212 


215212 


/C«»l.F 


01324 


212212 


212212 


/lf»lf 


01329 


212377 


212377 


/L^»R»0, 


01326 


715301 


MESS2 315301 


/M.* 


01327 


322313 


322313 


/R.K 


01330 


240324 


240324 


/SP»T 


01S31 


301320 


301320 


'*'^ 


01332 


305240 


305240 


/E#Sp 


01333 


317316 


317316 


/0,N 


ei334 


24i?325 


240325 


/SP»U 


?1339 


316311 


316311 


/Nil 


01336 


324240 


324240 


/T,SP 


01337 


240377 


240377 


/SPiR|0« 


01340 


304317 


MESS3 304317 


/o.o 


01341 


240331 


240331 


/SP.Y 


?1342 


317325 


317329 


/o.u 


?1343 


24i"3^4 


240304 


/SP.D 


711344 


305323 


305323 


/E,S 


?1345 


311322 


311322 


/l.H 


71346 


32524^ 


305240 


/E|SP 


01347 


323324 


323324 


/s,T 


^ISS' 


331316 


301316 


/A,N 


U351 


3043^1 


304301 


/-D.A 


?1352 


322334 


322304 


/R|D 


riss? 


24?3il6 


240376 


/SP»F 


71354 


317322 


317322 


/O.H 


nss"; 


•^153?1 


315301 


/f^.A 


<-l356 


724242 


324240 


/TiSP 


?1357 


25P262 


250262 


/(.2 


?1360 


265266 


265266 


/5,6 


71361 


240327 


240327 


/SPin 


01362 


317322 


317322 


/O.B 



- PDP-'» TC02, TU55 



14 


FOR'iAT f'Of 


R-'AT 


31363 


3Z43?3 


304323 


?1364 


^5424^ 


254240 


?1365 


365267 


265267 


■?1366 


27^24- 


270240 


Z!1367 


302314 


302314 


?137? 


3173?3 


317303 


21371 


313323 


313323 


l?1372 


251277 


251277 


31373 


215212 


215212 


?1374 


240250 


240250 


S!l375 


324331 


324331 


01376 


320305 


320305 


01377 


240331 


240331 


01400 


255331 


255331 


01401 


305323 


305323 


01402 


254240 


254240 


01403 


316255 


316255 


01404 


316317 


316317 


01405 


251240 


251240 


01406 


240377 


240377 


01407 


310317 MCSS4 310317 


01410 


327240 


327240 


01411 


315301 


315301 


01412 


316331 


316331 


01413 


240302 


240302 


01414 


314317 


314317 


01419 


303319 


303313 


01416 


323277 


323277 


01417 


240377 


240377 


01*20 


310317 MESS5 310317 


01421 


327240 


327240 


01422 


315301 


315301 


01423 


316331 


316331 


01424 


2403i!)4 


240304 


?1425 


301324 


301324 


01426 


301240 


301240 


01427 


327317 


327317 


01430 


322304 


322304 


01431 


323277 


323277 


01432 


240377 


240377 


01433 


302314 !^ 


ESS6 302314 


01434 


317303 


317303 


01435 


313240 


313240 


01436 


306317 


306317 


01437 


322315 


322315 


?144? 


301324 


301324 


01441 


240322 


240322 


?1442 


30B321 


305321 


!^1'»43 


325311 


325311 


fl444 


3223^55 


3223!'6 


01445 


32324'^ 


323240 


P1446 


26424'-' 


264240 


?!1447 


317322 


31732Z 


2145!^ 


240315 


240315 


71451 


317322 


317322 



/o,s 

/S,S>P 

/0|C 
/K,S 
/>•» 

/SP»( 

/T,V 

/P|E 

/SPiY 

/•|T 

/E|5 

/l.SP 

/N" 

/N|0 

/)|SP 

/SPiRiO 

/HiO 

/w,sp 

/M,A 

/N|Y 

/SP»B 

/'LiO 
/CK 

/Si» 
/SPiRiO 

/H,0 

/W|SP 

/H|A 

/N,Y 

/SP#0 

/A|T 

/A|Sp 

/W|0 

/RiD 

/Si? 

/SP»RiO, 

/BiU 

/0»C 

/K|SP 

/FiO 

/a,« 

/»|T 

/SPiR 
/E.Q 
/Uil 
/R|£ 

/S|SF 
/4,SP 

/0|H 

/SP•^' 

/0»« 



B&f^E 15 



FOR ^AT 



FOHHAT 



ei45? 


t?52m' 


714!j,? 


;??43'1 


"1454 


3243/;l 


Z1465 


240327 


?1456 


317322 


!»1457 


304323 


511460 


219212 


31461 


377000 


ei462 


31^325 


01463 


315302 


PI1464 


305322 


01463 


240317 


01466 


306240 


C1467 


30431^1 


(!147P 


324301 


01471 


240327 


01472 


317322 


01473 


304323 


01474 


240315 


01475 


325323 


01476 


324243 


01477 


302309 


01900 


240305 


01501 


326305 


01502 


316219 


01503 


212377 


01504 


324301 


01505 


320309 


01506 


240311 


01507 


323240 


01510 


316317 


01511 


324240 


01512 


314317 


01513 


316307 


01514 


240305 


01515 


316317 


31516 


325307 


01517 


310215 


31520 


212377 


i?1521 


3233ri5 


01522 


324242 


01523 


323327 


?1524 


3113?4 


7.1525 


303310 


01526 


240314 


?1527 


3013vi2 


31530 


305314 


n53i 


3053^4 


■^1532 


P43327 


?1533 


322324 


i«l534 


316255 


2'1535 


316317 


01536 


322315 


!^1637 


301314 


0154? 


255322 



MESS7 



Mcssa 



MESS9 



305240 

3iJ43?l 

3243?1 

240327 

317322 

304323 

215212 

377000 

316325 

315302 

305322 

240317 

306240 

304301 

324301 

240327 

317322 

304323 

240315 

329323 

324240 

302309 

240309 

326309 

316219 

212377 

324301 

320309 

240311 

323240 

316317 

324240 

314317 

316307 

240305 

316317 

325307 

310219 

212377 

323305 

324240 

323327 

311324 

303310 

240314 

301302 
305314 
305304 
240327 
322324 
315256 
316317 
322315 
301314 
255322 



/E|SP 

/T,A 

/SPiW 

/Oi« 

/O.S 

/CRUF 

/R.O 

/N|U 

/M|B 

/EiR 

/SPtO 

/F|SP 

/D,A 

/T|A 

/SPiw 

/0|H 

/Oi$ 

/SPiKi 

/Uif 

/TiSp 

/9i% 
/SPiE 

/V,| 

/T|A 

/P,l 

/SPfl 

/S.5P 

/N|0 
/T»SP 

/UiO 

/N,G 

/SPtt 

/N|0 

/UiC 

/H|CR 

/tFiR,Ot 

/S|E 

/TiSp 

/S|W 

/I|T 

/C»H 

/SP»L 

/A,B 

/EiL 

/E|0 

/SP»l>i 

/RiT 

/M,- 

/N|0 

/R|ii 

/A#L 

/»|R 



16 


F0«"4T FOF 


(MAT 


?X5A\ 


?2i43l5 


304315 


:^1542 


iizz^:' 


313240 


?l5At 


2A<^Z?« 


240324 


^1544 


3l724i:' 


317240 


711545 


327322 


327322 


01546 


324315 


324315 


?1547 


2403;'l 


240301 


!!155l? 


316304 


316304 


01551 


240305 


240305 


01552 


316301 


316301 


21553 


302314 


302314 


01554 


305240 


305240 


511555 


215212 


215212 


31556 


327322 


327922 


01557 


311324 


311324 


01560 


305240 


309240 


01561 


317316 


317316 


01,562 


240323 


240323 


01963 


320305 


320309 


01564 


303311 


303311 


01565 


306311 


306311 


01,966 


305304 


309304 


01567 


240329 


840389 


01570 


316311 


316311 


01571 


324240 


324240 


01572 


324310 


324310 


01573 


305316 


305316 


01574 


240323 


240323 


01575 


324322 


324322 


01576 


311313 


311313 


01577 


305240 


309240 


i?!1600 


301240 


301240 


01601 


313305 


313309 


01602 


33124C!! 


331240 


01603 


317316 


317316 


01604 


240324 


240324 


01605 


310305 


310309 


01606 


240313 


240313 


01607 


305331 


305331 


01613 


302317 


302317 


01611 


301322 


301322 


01612 


304215 


304215 


01613 


2123!?1 


212301 


01614 


306324 


306324 


71615 


305322 


305322 


01616 


240315 


240319 


01617 


317325 


317325 


!»162^ 


316324 


316324 


01621 


311316 


311316 


01622 


30724'J' 


307240 


01623 


30124C 


301240 


ai624 


326311 


326311 


01625 


322307 


322307 


01626 


311316 


311316 


!?'1627 


?403?4 


240324 



/0,M 

/K»SP 

/SP»T 

/OiSP 

/1N|H 

/U» 

/5P»A 

/N.D 

/SP»t 

/e,t 

/E|SP 

/W,R 

/Ul 

/EiSP 

/0|N 

/SPiS 

/PIC 

/Cil 

/SPiU 

/Nil 

/TiSp 

/T|H 

/E|N 

/SPiS 

/T.R 

/I|R 

/Ei5P 

/A|SP 

/K|E 

/Y|5P 

/OiN 

/SPiT 

/H|E 

/SP»K 

/E.Y 

/BiO 

/A.H 

/0|CR 

/l.f»A 

/F|T 

/E|R 

/SP»« 

/OiU 

/N.T 

/IfN 

/G|SP 

/A,bP 

/Vil 

/R,U 

/I.N 

/SP»T 



PACE t7 

01630 

551631 

21632 

31633 

01634 

Z1635 

01636 

01637 

ei64(!l 

01641 

01642 

01643 

01644 

01649 

01646 

01647 

01690 

0i651 

01692 

01693 

01694 

01659 

0t«9« 

01697 

01660 

01661 

01662 

01663 

01664 

01669 

01666 

01667 

01670 

01671 

01672 

01673 

01674 

01679 

0167<> 

016»y 

01700 

01701 

01702 

01703 

01704 

01705 

01706 

5)1707 

01710 

01711 

01712 

01713 

01714 

01715 

01716 



FOR>^AT 

301320 

305240 

J21316 

304240 

324301 

313311 

316307 

240262 

240327 

322301 

320323 

240317 

316240 

324301 

313309 

325320 

240322 

305309 

314219 

212377 

323399 

S14309 

303324 

240309 

322922 

317322 

254240 

303310 

309303 

313240 

306317 

322240 

324310 

305323 

305240 

303317 

316304 

311324 

311317 

316323 

272219 

212327 

322311 

324309 

240316 

317324 

240305 

316301 

302314 

305304 

219212 

316317 

316309 

330311 

323324 



FORMAT 

301320 /A|P 

305240 /CiSP 

301316 /A,N 

304240 /OiSP 

324301 /T,A 

313311 /Kil 

316307 /N|C 

240262 /SPi2 

240327 /SP»W 

322301 /R|A 

320323 /Pi5 

240317 /8P»0 

316240 /N|SP 

324301 /T|A 

313309 /Kil 

329320 /U|P 

240322 /SP»n 

309309 /EiC 

314219 /Ui5« 

212377 /tf'RtO 

MCSS10 323309 /S»l 

314309 /!.<( 

303324 /6fT 

240399 /9P»| 

322322 /Ri^ 

317322 /0»« 

294240 7,,fP 

303310 /C»^ 

309303 /C|C 

313240 /KilP 

306317 /ftg 

322240 /RfSp 

324310 /T,H 

309323 /ei$ 

395240 /EifP 

303317 /CiO 

316304 /N,0 

311324 /lit 

311817 /liO 

316323 /N»$ 

272215 /liCR 

212327 /u''W 

322311 /Ril 

324309 /Til 

240316 /SPiN 
317324 /Oi! 
240305 /SP»E 
316301 /N|A 
302314 /BiL 
305304 /E,0 
219212 /CRiLF 
316317 /N|0 
316309 /NtE 
330311 /Xit 
323324 /S«T 
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FORMAT 


ei7l7 


301316 


21720 


32424t' 


01721 


325316 


01722 


311324 


01723 


215212 


01724 


315329 


01725 


S14324 


01726 


311320 


01727 


314331 


01730 


240309 


01731 


930311 


01732 


323324 


01733 


301316 


01734 


324240 


01735 


329316 


01736 


311324 


01T37 


219212 


01740 


323327 


01741 


311324 


01742 


303310 


01743 


24031ft 


01744 


317324 


01741 


240311 


0174* 


316840 


01747 


327312 


81750 


315184 


«i7n 


240320 


01758 


317S29 


01793 


311524 


017S4 


Slt9l7 


01799 


316215 


01756 


212377 


01797 


323305 


01760 


324240 


01761 


323327 


01762 


311324 


01763 


303310 


01764 


240314 


01765 


301302 


01766 


309314 


01767 


305304 


01770 


240327 


{51771 


322324 


01772 


315255 


01773 


316317 


01774 


322315 


01775 


301314 


?1776 


255322 


21777 


304315 


712000 


3l324ii5 


02?01 


324317 


?2002 


240316 


C2003 


317322 


02004 


315301 


02009 


314254 



FORMAT 



HESSll 



301316 

324240 

325316 

311324 

215212 

319325 

314324 

311320 

314331 

240309 

330311 

323324 

301316 

324240 

329316 

311324 

215212 

323327 

311324 

303310 

240316 

317324 

240311 

316240 

327322 

315324 

240320 

317323 

311324 

311317 

31«2I9 

212377 

323305 

324240 

323327 

311324 

303310 

240314 

301302 

309314 

309304 

240327 

322324 

315299 

316317 

322319 

301314 

265322 

304319 

313240 

324317 

240316 

317322 

315301 

314294 



/A|S 

/T.SP 

/U|N 

/l|T 

/CRiUF 

/M,U 

/Lit 

/liP 

/L#Y 

/SP»E 

/Xil 

/SiT 

/A|N 
/Tf?P 

/III 

/CRiLF 

/8,H 

/lit 

/C|H 
/$f>iN 

/Oi! 
/SPiI 

/N,|P 

/Hi! 

'''•! 

/NiCli 

/Si| 

/S|W 
/liT 

/C|H 

/SPiU 

/A,B 

/C»L 

/CiP 

/SP»W 

/Ri! 

/Ml- 

/N|0 

/R|M 

/AiU 

/••« 

/0|H 

/K.SP 

/TiO 

/SPiN 

/OiR 

/M|A 

/Ui» 



PAGC 19 



FORMAT 



FORMAT 



;'27?6 


242324 


"Zt^ey 


31Z395 


'2?1? 


JlftZo:^ 


72711 


323324 


?2ei2 


322311 


?2013 


313306 


?2ei4 


2403i?'l 


?2015 


240313 


?2e!i6 


305331 


{"2017 


240317 


32021? 


316245! 


02021 


215212 


02022 


324310 


02023 


305240 


02024 


313305 


02025 


331302 


(»2026 


317331 


32027 


322304 


?'203J! 


215212 


02031 


377000 


02032 


215212 


02033 


324310 


02034 


305240 


02035 


306317 


02036 


314314 


02037 


317327 


02040 


311316 


02041 


307240 


02042 


325316 


02043 


305330 


02044 


320305 


!?2045 


303324 


?2e46 


305304 


02047 


240305 


02053 


322322 


02051 


317322 


02052 


323240 


02053 


327305 


P2054 


322305 


02055 


2403?S 


22056 


316333 


?2057 


317325 


?206PI 


316324 


'.2061 


305322 


?2062 


w<053!?4 


i:2063 


272215 


^■2064 


212377 


^2f-65 


7l53?l 


?2066 


322313 


''2067 


24C324 


!^2?7:' 


32?3i^!l 


^2071 


303313 


22072 


24e'335 


^2273 


322322 


512074 


317322 



MESS12 



MESS13 



240324 


/SP»T 


310305 


/H,E 


316240 


/N.SP 


323324 


/S,T 


322311 


/Ril 


313305 


/K|t 


240301 


/SP»A 


240313 


/SP»K 


305331 


/E,Y 


240317 


/5P»0 


316240 


/N,SP 


215212 


/CR'LF 


324310 


/T|H 


305240 


/EiSp 


313305 


/K|| 


331302 


/Y|8 


317301 


/Oi* 


322304 


/R|0 


215212 


/CRitr 


377000 


/R,0 


215212 


/CSiLF 


324310 


/T|H 


309240 


/Ci5P 


306317 


/r,o 


314314 


/Lit 


317327 


/0|W 


311316 


/I|N 


307240 


/C,SP 


325316 


/U,N 


305330 


/eiX 


320309 


/Pll 


303324 


/C.T 


305304 


/t,0 


240309 


/SPiE 


322322 


/RiR 


317322 


/OiR 


323240 


/SiSP 


327305 


/Hit 


322309 


/RiE 


240305 


/SP»E 


316303 


/N|C 


317325 


/o.u 


316324 


/N,T 


305322 


/£•» 


309304 


/EiD 


272215 


/I.CR 


212377 


/i.r»RO 


315301 


/M,A 


322313 


/R.K 


240324 


/SP.T 


322301 


/R|A 


303313 


/Ci« 


24030b 


/SP.E 


322322 


/R,N 


317322 


/Oi« 



'AGE 



rOR--»4T 



fORfAT 



?2'/T> 


?15212 


■■??7* 


11770?" 


■'Z'ni 


3?5J16 


?21Z? 


32424 J 


?2101 


332317 


P'2122 


3l63i?5 


'2103 


?4?3?5 


K21B4 


322322 


?2105 


317322 


?2106 


515212 


32107 


37703Z 


021lf 


?23305 


?2111 


314305 


PI2112 


303324 


02113 


240335 


02114 


322322 


02115 


317322 


02116 


215212 


02117 


377000 


02120 


320301 


02121 


322311 


02122 


324331 


02123 


240305 


02124 


322322 


02125 


317322 


22126 


215212 


02127 


377000 


02130 


324311 


02131 


315311 


02132 


316307 


02133 


240305 


02134 


322322 


02135 


317322 


02136 


215212 


Z2137 


377000 


32140 


324317 


02141 


317240 


?2142 


315301 


02143 


316331 


?2144 


?45?3?2 


!»2145 


314317 


?2146 


303313 


?2147 


•'2324? 


?2l5r 


327322 


P2151 


311324 


«»2152 


3243^5 


i72153 


316254 


'/)2154 


2403??" 


;'2155 


322317 


^2156 


3e73?2 


?2157 


3E1315 


^216? 


2«P3::'5 


02161 


322322 


?2162 


317322 


-'2163 


255322 



MESS14 



MESS15 



MESSi6 



M|SSl7 



MESSlB 



215212 

377000 

305316 

304240 

332317 

316305 

240305 

322322 

317322 

215212 

377000 

323305 

314305 

303324 

240305 

322322 

317322 

215212 

377000 

320301 

322311 

324331. 

240309 

322322 

317322 

215212 

377000 

324311 

319311 

316307 

240305 

322322 

317322 

215212 

377000 

324317 

317240 

315301 

316331 

240302 

314317 

303313 

323240 

327322 

311324 

324305 

316254 

240320 

322317 

307322 

301315 

243305 

322322 

317322 

265322 



/E•^ 

/0|!>P 

/Z.O 

/N»i 

/SP»E 

/«!*< 

/0|H 
/CR'LF 

/s,e 

/3P»E 

/«•« 

/Oi« 

/R.O 

/Pi* 

/Ril 

/T,T 

/SP'E 

/R|R 

/0|f» 

/RO 

/T,l 

/M.l 

/N»C 

/SPiE 

/R|R 

/O.R 

/CRfUr 

/RO 

/T|0 

/0|SP 

/M,A 

/M|Y 

/SP»e 

/L|0 
/C|K 
/S.Sp 

/W|R 

/I.! 

/T,E 

/M|i 

/SPiP 

/RiO 

/G,R 

/»•« 

/SP»E 

/R,H 

/0,H 



PAi^E 21 



FOR' AT 



•2164 


3?53i4 


?2165 


3173 1 


72166 


334213 


?2167 


?12377 


221751 


302314 


?2171 


317333 


!?2172 


313240 


02173 


315325 


02174 


315322 


02175 


305322 


Z2176 


240323 


02177 


305321 


0220171 


325305 


02201 


316303 


32202 


305240 


02203 


302322 


02204 


317313 


02205 


305316 


02206 


219212 


02207 


377000 


02210 


215212 


02211 


304317 


02212 


316305 


02213 


241240 


02214 


324301 


02215 


320305 


02216 


240313 


02217 


301323 


02220 


240377 


02221 


302314 


02222 


317303 


?2223 


313323 


22224 


250317 


02225 


303324 


02226 


2512421 


02227 


3063B1 


02230 


303310 


02231 


240377 


02232 


327317 


?2233 


322304 


02234 


323250 


02235 


317323 


02236 


324251 


Z2237 


240314 


02240 


317316 


?;224i 


307215 


!?2242 


212377 


?!2243 


3?43l7 


72244 


?4(?331 


72245 


.117325 


Z2246 


24'^3l'4 


/2247 


305323 


?2250 


:<11322 


?2251 


30524.' 


?2252 


324317 



FORHAT 



iESSl9 



HCSS20 



MESS21 



MESS22 



MESS23 



305314 

317301 
304215 
212377 
302314 
317303 
313240 
316325 
315302 
305322 
240323 
309321 
329309 
316303 
309240 
302322 
317313 
309316 
219212 
377000 
219212 
304317 

316309 

241240 

324301 

320309 

240310 

301323 

240377 

302314 

317303 

313323 

250317 

303324 

251240 

309301 

303310 

240377 

327317 

322304 

323250 

317303 

324251 

240314 

317316 

307215 

212377 

304317 

240331 

317325 

240304 

305323 

311322 

305240 

324317 



/EiU 
/0|A 

/BiU 
/0|C 
/K.SP 

/E|R 

/SP»S 

/uti 

/N|C 
/E|N 

/RO 

/CHiUf 
/0#0 

/N»| 
/||5P 

/T»A 

/Pll 

/SP»H 

/A|S 

/SPiRO 

/B.C 

/0|C 

/KiS 

/<iO 

/CiT 

/>|SP 
/E|A 

/C.H 
/SP'fiO 
/-WiO 
/RiD 

/o.c 

/T|) 

/SP»L 

/O.N 
/0»CR 
/IFiRO 
/D.O 

/SP»Y 

/o.u 

/SP»D 
/E.S 
/I|H 
/E.SP 

/T|U 



PAGE 22 


F^R'-iT 


?2253 


?4<53li 


.'??54 


3C1322 


:2255 


3l32<:- 


32256 


321316 


?2257 


317324 


02260 


310335 


?2261 


1222tv 


f2262 


32433!1 


Z2263 


320385 


5^2264 


?40324 


:72269 


317240 


i?2266 


324310 


02267 


311323 


02270 


240306 


02271 


317322 


32272 


319301 


32273 


324250 


32274 


324331 


02275 


323305 


02276 


240331 


02277 


255331 


02300 


305923 


02301 


240316 


02302 


255316 


02303 


317251 


02304 


277215 


02309 


212377 


02306 


215212 


02307 


316325 


02310 


315302 


02311 


305322 


02312 


240317 


02313 


306240 


02314 


302314 


02315 


317333 


02316 


313323 


02317 


240315 


02320 


325323 


?2321 


32424? 


32322 


302305 


i?'2323 


240262 


?2324 


240317 


02325 


322240 


^2326 


315317 


J;2327 


322335 


{■2330 


215212 


72331 


37730J 


^■2332 


215212 


?2333 


27^313 


-2334 


2403X7 


^2335 


326245 


?2336 


3153^5 


i?2337 


315317 


E2340 


322331 


02341 


2403n3 



FORMAT 



MESS24 



MESS25 



240315 

301322 

313240 

301316 

317324 

310305 

322240 

324301 

320305 

240324 

317240 

324310 

311323 

240306 

317322 

315301 

324250 

324331 

320305 

240331 

259331 

309323 

24031ft 

259316 

317251 

277215 

212377 

215212 

316325 

315308 

305322 

240317 

306240 

302314 

317303 

313323 

240315 

325323 

324240 

302305 

240262 

240317 

322240 

315317 

322305 

215212 

377000 

215212 

270313 

240317 

306240 

315305 

315317 

322331 

240303 



/SP»' 

/A,H 

/K.SP 

/A,f< 

/0|T 

/H,fc 

/T|A 

/PiE 

/SP»T 

/0|SP 

/T,M 

/IfS 

/sPir 

/M,A 
/T,( 
/Tit 
/Pil 
/5PiY 

n,9 

/SPfKi 
/•|N 

/Oi) 
/?i?R 

/CRwr 

/N.U 

/liiB 

/liR 

/SP.O 

/r.sp 

/BiU 

/O.C 

/K|S 

/SPiM 

/u.s 

/T,SP 

/8,E 

/SP»2 

/SPtO 

/R.sp 

/M.O 

/R|£ 

/CR.LF 

/RO 

/CR»LF 

/8,K 

/SP»C 

/F.SP 

/Mlfc 

/SP#C 



PAGE 23 



rOR'i4T 



FOR"'AT 



'.•2J4? 
?2344 
02345 
P2346 
Z2347 
fi235r 
?235l 
5^2552 
22353 
02394 
02359 
22396 
(H2357 
02360 
?2361 



02362 
02363 
02364 
02365 
02366 
02367 
02370 
02371 
02372 
02373 

02374 
22375 
22376 
02377 

02400 
02401 
22402 
02433 

Z2404 
22405 

22406 
72407 
^2415' 
22411 
5'2412 
r2413 
;2414 
?2415 

rail* 

22417 

;^242- 
-2421 



301316 
J47324 
2473;'3 
217316 
324331 
311316 
240324 

310311 
323245! 
323311 
332305 
240302 
314317 
303313 
240215 
212377 



000030 
000031 

404404 
040404 
040440 
044040 
004000 
444000 
444044 
404004 
400404 
040040 

JI02000 
335000 
271000 
036000 
020000 
315000 
310000 
?010aP 

762514 

000000 

(?!00260 
'701102 
"0244? 

0011!-12 
?004S3f" 
.?3PI0P0 

;;00i<00 
?0e4f"i'' 
200000 
777747 
777766 



3»'1316 /A|W 

247324 /',T 

2403E!3 /SP»C 

317316 /0|N 

324301 /T|A 

311316 /I|N 

240324 /SP»T 

310311 /Hi I 

323240 /SfSP 

323311 /S|i 

332305 /Z|E: 

240302 /SP»B 

314317 /UiO 

303313 /C|K 

240219 /SPiCR 

212377 /(.riRO 

/CONSTANTS AND VARJABWES 
/WC AND CA OCriNlTlONS 
MC»30 
CA1I31 

/MARK TRACK PATTERNS 

REVEND 404404 /55 
040404 
040440 
044040 



EXPAND. 

HARK 

REVGRO. 

LOCK 

OATAM 

PREFIN 

GUARD 

REVMRK 

END 



444000 
444044 
404004 
400404 
040040 



/32 

m 
tn 
tn 

/91 
/45 
/22 



/OECTAPE COMHANO 

REONOM 002000 /RE*0 DATA NORM 

FWDWAC 035000 /WRITE ALL fWD 00 CONT 

(RESERC 071000 /SEARCH REVERSE GO CONT 

WTMT 036000 /WRITE T a MT FWD GO COnT 

STOPGO 020000 /STi3P OR 00 

WAC 015000 /WRITE All CONTINUOUS 

NORCON 010000 /NORMAL CONTINUOUS 

SERNOM 001000 /SEARCH NORMAL 



/AASSORTED SUNDRY POiNTERSi COUnTeRS, CqmSTAmTS, VARIABLES, ETC, 



AA 

ANSWER 

ASKII 

BLOCKS 

CPOI\:T 

CONSTl 

C0NST2 

CNTR 

CNTRl 

CNTR2 

DATAS 

EXPECT 

M9 

M12 . 



^A*l 



260 

1102 

POINT 

1102 

400 

Pl 


400 

91 

-l-ll^l 

-1-12*1 



/NUMBER rr DATA WQRDS "ax (,) 
/ANSWER TO DEC TO BIN TypflN (DBCV) 
/MAGIC CONSTANT 
/NUMBER or BLOCKS 

/57e DEC 
/256 DEC 

/BLOCKS COUNTER 
/DATA l«ORD CDUNTER 
/COUNTER FOR OCTAL TYPEOUT 
/^lUMeER Df DATA WORDS 
/NUMBER OF BLOCK E^PECTEn 



PAGE ?4 



rOK:'*T 



rnpKAT 



:'2<23 

72425 

32426 

5'2427 

?2430 

22431 

02432 

02433 

?2434 

02435 

02436 

02437 

02440 

02441 

02442 

02443 

02444 

?«2445 

02446 

32447 

024521 

02451 

02452 

02453 

02454 

02455 

02456 

02457 

02460 

02461 

02462 

02463 

02464 
02465 
02466 



4 .mar* ',' . ' 
X V. ' I- 

: 40VV" 
;-2Ki)00 

2iim 

777774 

?)003l6 

?00000 
.100031 
000000 
?02440 
2100000 
000007 
000070 
000700 

370000 
700000 
000377 

000000 

000000 
000000 
000000 

000000 

5100000 
I700000 
000012 
"•00002 
C00003 
300003 
PI00331 
323S53 



"260 

MASKl 
1A5K2 
^ASK3 
'ASK4 
^ASK5 
t', l''^US4 

NUMBER 

OBVERS 

ONE 

PNTR 

PNTRl 

PNTR2 

POINT 



-1-260*1 

120000 

4200;; 

20000 

10000 

7777 

•.l''4*l 

316 





1 



POINT 



7 

70 

700 



/NUMeER RE INC OBVERSEO 
/-COMP, OBVERSE CAUCgLATloNS 

/POINTER rOR STORaCE 0? BWOCK NUMBER 
/POINTER fOR MASKS Of CauOLB 
/POINTER FOR MESACE 
/MASK FOR CAL0L8 



RUBOUT 

SAVE 

SAVEl 

SAVE2 

SAVE3 

TAUY 

TEMP 

TEMl 

TEN 

TWO 

THREE 

UNIT 

YYY 

MACCON 
/BECINN 



7! 

700000 
377 








/• OF MARKS PER BtOCK U) 

/« OF BLOCKS {•> 

/COMP, OBVERSE or UAST BLOCK 

/# or PARTICULAR BLOCK 

/COMPi OBVERSE COUNTER 

/STORAGE FOR TYPEOUT AND TyPIN 

/ST0RA6E FOR OBCV 



302466 
^02465 

300000 

71525b 

SI2E»02467 






i2 

2 

3 

/UNIT NUMBER 

331 

323553 /MINUS 153.749(0EC> 

INC OF BUFFER AREA 
BUFFER 
BUFFER-1 

BUFFER 
A»17763''euFFER''10 
,END BEGIN 
NO ERROR UT'JtS 



PACt 25 



rOK-'AT 



FORf'AT 



A 


K15265 


Lk 


?24Zt 


ANSkER 


f2405 


AS^II 


02406 


3EG1^ 


ISZi.il": 


PtOCKS 


!'2«07 


BUfFER 


32466 


CA 


000031 


CAlOLfl 


01115 


CUOF 


700004 


CUON 


700044 


CI.SF 


700001 


cntr 


02413 


cntri 


02414 


CNTR2 


02415 


CONST! 


02411 


C0NST2 


02412 


CPOINT 


02413 


cRir 


01174 


DATAK 


02367 


OATAS 


02416 


DBCV 


01227 


DONE 


01267 


EEM 


7077B2 


END 


02373 


ERRORl 


01044 


ERR0R2 


01106 


ERRORS 


01112 


EXPAND 


02363 


EXPECT 


02417 


PlfTW 


00632 


FIRST 


00263 


FOURTH 


30452 


FWOWAC 


02375 


GET 


01202 


GUARD 


02371 


HEREl 


00965 


MERE2 


00644 


HERE3 


00743 


KRB 


700312 


KSF 


700301 


UAST 


01007 


LEM 


707704 


LOCK 


3236* 


LOOP 


!?1127 


MAGCON 


32463 


MARK 


■^2364 


s^ASkI 


5)2423 


MASK2 


?2424 


MASK3 


P2425 


MASK4 


{^2426 


HASK5 


02427 


MESAGE 


01144 


«ESS1 


01276 


MESS10 


01654 
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FORn-.aT 



'■O^-'AT 



^'ESSll 


■^1757 


MESS12 


^2?3Z 


MESS13 


ri2t565 


^£SS14 


02f)77 


^'ESSIS 


02HC 


MESS16 


•7212'.' 


-ESS17 


0213? 


►^ESSIS 


02140 


MESS19 


5'217.' 


«ESS2 


01326 


MESSZ0 


2221? 


MESS21 


?2221 


MESS22 


02232 


klESS23 


02243 


MESS24 


1712306 


MESS25 


02332 


MESS3 


01340 


MESS4 


01407 


1ESS5 


01420 


MCSS6 


01433 


MESS7 


01462 


MCSS8 


01504 


MESS9 


01921 


MINUS4 


38430 


MP10 


01244 


M12 


02421 


H260 


02422 


M9 


02420 


MEXT 


00230 


^^NN 


024S1 


NORCON 


02402 


NUMBER 


02432 


OBVCRS 


92433 


ONE 


02434 


OVER 


01272 


PCF 


700202 


PNTR 


32435 


PNTftl 


02436 


PNTR2 


02437 


POIMT 


0244:^ 


PRCFIN 


0237? 


PSA 


700204 


pse 


700244 


psr 


700201 


RCf 


7001C2 


REDNOM 


32374 


RESERC 


02376 


REVEMD 


02362 


PEVGRO 


02365 


SE^MSK 


3237? 


RRB 


700112 


PSA 


7ji0ie<( 


9SB 


7^10144 


Rsr 


700101 


ejUBOUT 


02446 



PAGE 27 F 


SAVE 


t"2447 


SAVEl 


P245'- 


SAVE2 


?2451 


SAVE3 


(?245? 


SECOND 


00312 


SERf-iOM 


3240? 


SIXTH 


00734 


STAND 


80223 


STOPGO 


?24l?0 


TALLY 


"2453 


TCf 


7?0402 


TEMP 


02454 


Tin 


02455 


TEN 


32456 


TEST 


01232 


THIRD 


00403 


THREE 


02460 


TLS 


700406 


TMESS3 


00122 


TMESS4 


00136 


TMCSS5 


00151 


TMCSS6 


00160 


TMES87 


00167 


TMCSS8 


00177 


TMESll 


00430 


TMES23 


01030 


TSf 


700401 


TWO 


02457 


TYPE 


01166 


TYPOUT 


01207 


UNIT 


02461 


WAC 


02401 


WC 


00003C" 


WTMT 


02377 


YYY 


02462 



FOH"'AT foR'^AT 
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FOR'- AT 



FORMAT 



wC ; 


^TiZ^y/ 


CA 1 


nZ5!3l 


::E!^r 


i3i0r 


TMESS3 


?JI\22 


TMESS-i 


23136 


T»1CSS5 


30151 


TMESS6 


30162 


TMESS7 


30167 


TMESS8 


00177 


STAND 


!!I8223 


NEXT 


0023? 


riRST 


30263 


SECO^JO 


00312 


THIRD 


30403 


TMESll 


0043? 


FOURTH 


00452 


HEREl 


00565 


riFTH 


00632 


HERE2 


00644 


SIXTH 


00734 


MERE3 


00743 


LAST 


31007 


TMES23 


01030 


ERROR! 


01044 


ERROR? 


01106 


ERRORS 


01112 


CA1.0L8 


01115 


LOOP 


01127 


HESACE 


01144 


TYPE 


01166 


CRLF 


01174 


GET 


n2Z2 


TYPOUT 


mz7 


OBCv 


01227 


TEST 


31232 


MP10 


:?1244 


DQfJE 


31267 


OVER 


^'1272 


'^ESSl 


?127« 


MESS2 


31326 


.>^ESS3 


3134;:' 


MESS* 


ei407 


•^ESS5 


n42:i 


«ESS« 


7'1433 


-ESS7 


71462 


MESS8 


?il504 


MESS9 


511521 


"ESsia 


C1654 


^ESSll 


:'1757 


^ESSIZ 


:^2033 


^ESS13 


7I2!?6? 


•'ESSl^ 


32077 


MESS15 


02ii;5 


MESS16 


?'212? 


MESS17 


3213^' 



PAGE 29 



F03"aT 



FOP-' AT 



■-ESS18 


?Z14> 


"ESS19 


0217? 


MESS22 


n22i- 


MESS21 


^2221 


MESS22 


^2232 


MESS23 


'2243 


MESS2'* 


?'230(S 


NiESS25 


!?2332 


HEVEMO 


02362 


expamd 


02363 


«<ark 


02364 


i^EVGRD 


?2369 


UOCK 


02366 


DATAM 


32367 


PREFIN 


i?237? 


GUARD 


02371 


REVMRK 


02372 


END 


(?2373 


REDNOM 


02374 


rwOWAC 


02375 


RESERC 


02376 


WTHT 


02377 


STOPGO 


02400 


WAC 


02401 


NORCON 


02402 


SERNOM 


^2403 


AA 


02404 


ANSWER 


02405 


ASKII 


02406 


BLOCKS 


02407 


CPOIK!T 


3241? 


CONSTl 


02411 


C0NST2 


02412 


CNTR 


02413 


cntri 


02414 


CNTR? 


02415 


OATAS 


32416 


EXPECT 


?2417 


H9 


?242? 


"12 


:?242i 


ygee 


32422 


MASKl 


?2423 


►^ASK2 


"^2424 


MASK3 


('2425 


HASK4 


(?2426 


MASK5 


?2427 


MINUS* 


7243!? 


►iNN 


^2431 


MU'^BEH 


•^2432 


OBVERS 


?2433 


ONE 


?2434 


pnth 


-^2435 


pmTRI 


:«2436 


PNTB2 


72437 


POINT 


I»244" 



SAGE ^2 FOR'AT FOR''^AT 



PljBOUT 


CZ446 


SAVE 


^£447 


«;Avei 


7245- 


SAVE2 


^glSl 


SAVE3 


C12452 


TAltV 


22453 


TENP 


?2454 


TEMl 


02455 


TEN 


(»2456 


TWO 


02457 


THREE 


0246!? 


UNIT 


02461 


YYr 


02462 


MAOCON 


02463 


SUFFER 


02466 


A 


019265 


clsf 


7c«0e0i 


CUOF 


700004 


CI.ON 


7^0044 


Rsr 


700101 


Rcr 


700102 


R$A 


700104 


RftB 


700112 


RSB 


700144 


?$f 


700201 


PCF 


700202 
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700204 
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700244 


K$r 


700301 


KRB 
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TSF 


700401 


TCF 


700402 


TUS 


700406 


EEM 


7(57702 


LEM 


707704 



